home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / talk450.mrg < prev    next >
Text File  |  1983-07-24  |  896b  |  13 lines
  1. 200 'PC-TALK.III 450 BAUD MERGE FILE BY DORN W. STICKLE, AMARILLO, TX
  2. 425 CLOSE#1:OPEN COMM$ AS #1:PRINT#1,MODMINIT$;:IF BAU450 THEN GOSUB 11000
  3. 5026 PRINT"   5 -  450,E,7,1  (TEXT)      6 -  450,N,8,1  (BINARY)
  4. 5055 IF Q$="F" THEN PRINT Q$:GOSUB 5815:PRINT:PRINT"PARAMETERS RESET TO:";:DORN=0:GOSUB 5100:GOTO 5095
  5. 5060 DORN=0:Q=VAL(Q$):IF Q<1 OR Q>6 THEN BEEP:GOTO 5045 ELSE PRINT Q
  6. 5081 IF Q=6 THEN PAR$="N":DTA$="8
  7. 5086 IF Q=5 OR Q=6 THEN GOSUB 11000
  8. 5090 PRINT:PRINT"NEW PARAMETERS ARE: ";:GOSUB 5100
  9. 5095 PRINT GO$:GOSUB 2800:GOTO 515
  10. 5100 COLOR BG,FG:IF DORN=1 THEN 5101 ELSE PRINT MID$(COMM$,6,10);:COLOR FG,BG:PRINT:PRINT:GOTO 5105
  11. 5101 PRINT "450,"+PAR$+","+DTA$+","+STP$;:COLOR FG,BG:PRINT:PRINT
  12. 11000 OUT &H3FB,(INP(&H3FB) OR &H80):OUT &H3F8,0:OUT &H3F9,1:OUT &H3FB,(INP(&H3FB) AND &H7F):DORN=1:RETURN
  13.